[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
twBackUp( cPath, cSourceSpec, cDest, lMsgs, wColor, ;
wSType, wFType, wFColor, cBColor, cBFColor )
----------------------------------------------------------------------------
Backup files using Clipper low level file functions to produce a
copy of the files in the specified location. Backups are to
floppies only. If the floppy contains information it is first
removed. Files can span diskettes with each diskette having its
own ID.
Arguments:
cPath - 'C' DOS path to the files to backup.
cSourceSpec - 'C' DOS filespec of the files to backup.
cDest - 'C' Destination for the backup. It must be contained
in the string "A:B:".
lMsgs - 'L' Logical for displaying messages during the
backup. This includes a scrolling list of the
files being processed.
wColor - 'C' Backup window colour is a Clipper colour string.
wSType - 'N' TSDWIN shadow type.
wFType - 'N' TSDWIN frame type.
wFColor - 'C or A' TSDWIN frame colour.
cBColor - 'C' Optional exception colour for the message
window. This parameter defaults to wColor.
cBFColor - 'C' Optional exception colour for the message
window frame. Defaults to wFColor
Return:
NIL
Example:
FUNCTION main()
#include "tsdwin.ch"
LOCAL wColor := "w+/rb,b/w,,gr+/rb,bg+/b", wSType := 3, wFType := 4
LOCAL wFColor := { "gr+/rb", "w/rb" }, GetList := {}
LOCAL cFileSpec := SPACE( 20 ), cDest := "A:", cPath := SPACE( 60 )
LOCAL aCheck, lMsgs := .F., nStartTime
LOCAL amArray := { "Yes", "No", "Maybe" }, nMenuChoice
twOpen( 2, 0, MAXROW() -1, MAXCOL(),;
wColor, wSType, wFType,, wFColor )
twTitle( "twBackUp Test", "n/w", "T", "C" )
DO WHILE .T.
@ twRow( 2 ), twCol( 10 ) SAY " Path:" ;
GET cPath PICTURE "@!@S25"
@ twRow( 4 ), twCol( 10 ) SAY " FileSpec:" ;
GET cFileSpec PICTURE "@!"
@ twRow( 6 ), twCol( 10 ) SAY "Destination:" ;
GET cDest PICTURE "@!"
@ twRow( 8 ), twCol( 10 ) SAY "Messages:"
GET lMsgs PICTURE "Y"
twReadModal( GetList ); GetList := {}
IF LASTKEY() == K_ESC
EXIT
ENDIF
nStartTime := SECONDS()
twBackUp( cPath, cFileSpec, cDest, lMsgs, ;
"n/bg,gr+/r,,,n/w", 3, 10, { "gr+/bg", "b/bg" } )
twInfo( "Backup Took: " + ;
STRINT(( SECONDS() - nStartTime ) / 60 ) + " Minutes" )
ENDDO
twPop()
RETURN NIL
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson